function TSdt = mdt2TSdt(mdt, TSformat)
% TSdt = mdt2TSdt(mdt, TSformat) Convert a Matlab serial date into a TS format 
% date (YYYYMMDD or YYYYMM).
%    TSformat - Format type: 'YYYYMMDD' (default) or 'YYYYMM'

if nargin < 2; TSformat = 'YYYYMMDD'; end;

switch TSformat
   case 'YYYYMMDD'
      TSdt = 10000 * year(mdt) + 100 * month(mdt) + day(mdt);
   case 'YYYYMM'
      TSdt = 100 * year(mdt) + month(mdt);
   otherwise
      error('Invalid TSformat')
end

return
